5 REM"      [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
6 [143]"      (null) GOT A MATCH? (null)
7 REM"      [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
8 [143]"     BY  WALTER E. MEYERS
9 REM"  403 CARRIAGE LANE, CARY, NC
10 [151] 53269,0:[151] 53272,21:[151] 648,4:[151] 56576,[194](56576)[176] 3:[137] 100
20 [151] 198,0:[146] 198,1:I[178][194](631):[151] 198,0:[142]
30 [151] S[170]24,15:[151] S[170]5,45:[151] S[170]6,165:[151] S[170]4,33:[151] S[170]1,6:[151] S,5
35 [129] T[178]1 [164] 100:[130]:[151] S[170]4,32:[151] S[170]4,16:[142]
40 [151] S[170]24,15:[151] S[170]6,247:[151] S[170]4,17:[151] S[170]1,40:[137] 35
50 [151] 781,LN:[151] 782,COL:[151] 783,0:[158] 65520:[142]
60 [129] I[178]S [164] S[170]24:[151] I,0:[130]:[142]
70 [153]"LOAD" PL$ N$(K):[142]
80 [151] V[170]6,144:[151] V[170]16,0:[151] V[170]21,8:[142]
90 N[178][181]([187](0)[172]D[170]1):[142]
99 [143]         INITIALIZE
100 SC[178]53281:BO[178]53280:[151] SC,15:[151] BO,15:[153]"LOADPOKE     ONE MOMENT, PLEASE."
110 [129] MUSIC[178]1 [164] 124:[135] A:[130]
120 [129] TYPE[178]49152 [164] 49184:[135] A:[151] TY,A:[130]
130 [129] SPRITE[178]49216 [164] 49599:[135] A:[151] SP,A:[130]
140 [129] JOYSTICK[178]49600 [164] 49736:[135] A:[151] JO,A:[130]
150 V[178]53248:[151] V[170]23,53:[151] V[170]29,48:[129] I[178]1 [164] 6:[151] 52215[170]I,I:[130]
160 [151] V,255:[151] V[170]2,255:[151] V[170]4,254:[151] V[170]8,242:[151] V[170]9,194
170 [151] V[170]10,245:[151] V[170]11,236:[151] V[170]39,7:[151] V[170]40,7:[151] V[170]41,8:[151] V[170]42,7
180 [151] V[170]43,8:[151] V[170]44,14:S[178]54272
190 [134] T$(19):P[178]2:[137] 1000
198 :
199 [143]  INSTRUCTIONS
200 [153]"LOADPOKEPEEKERZERKONS COME IN FOUR DIFFERENT KINDS,"[166]6)"AND IN A ";
210 [153]"VARIETY OF COLORS.":[153]"LEFT$ERE THEY ARE:":[153]:[153][163]2) NM$(1);
220 [153][163]13) NM$(2) [163]22) NM$(3) [163]32) NM$(4):[153][163]4) BZ$(1);
230 [153][163]14) BZ$(2) [166]8) BZ$(3) [166]8) BZ$(4):[153]:[153]:[153]
240 [153] SK$ " LEFT$IT ANY KEY WHEN Y'ALL'RE DONE"[166]10)"STUDYIN' AND ARE READY";
250 [153]" TO PLAY.":[141] 20
398 :
399 [143]  INPUT
400 [153]"LOADPOKELEFT$OW MANY FOLKS'LL BE PLAYIN'" NG$:SU$[178]"":CN$[178]"":VB$[178]"IS"
410 [141] 20:NP[178]I[171]48:[139](NP[179]1)[176](NP[177]9)[167] 410
420 [153]"(null)UMBER OF PLAYERS ="NP:[153]:[153]
430 [153] SK$ "(null)ICK A DIFFICULTY LEVEL BY HITTINGA NUMBER KEY.":[153]
440 [153][163]9)"STOPVALASY"[166]17)"LEFT$ARD" [166]15)"-TANTAN(null)TANTAN(null)TANTAN(null)TANTAN(null)TANTAN(null)TANTAN(null)TANTAN(null)TANTAN<"
450 [153][163]9)"STOP1  2  3  4  5  6  7  8  9"
460 [141] 20:[139] (I[179]49)[176](I[177]57) [167] 460
470 I[178]I[171]48:D(1)[178]I[170]3:I[178]60[171](I[172]5):CY[178][181](2.5[172]I)
480 [153]""SK$ "LEFT$IT ANY KEY WHEN YOU'RE READY TO START.":[141]20
498 :
499 [143]  MAIN LOOP
500 C$[178]"1STOP234CLR56":[129] K[178]1 [164] NP:[151] BO,0:[151] SC,15:[129] I[178]1 [164] 4:D[178]D(1)
510 [141] 90:Z(I)[178]N:IN(I)[178]20[171]Z(I):D[178]6:[141] 90:Z$(I)[178][202](C$,(N[172]2)[171]1,2)
520 RZ$(I)[178][201](Z$(I),1):[130]:[153]"":[141] 70:[153]:[153]:[129] I[178]1 [164] 4
530 [153][163]IN(I));:[129] J[178]1[164]Z(I):[153] RZ$(I) BZ$(I);:[130]:[153]:[153]:[130]
540 [129] I[178]1 [164] 4:[153]:[130]:LN[178]17:COL[178]30:[141] 50:[153] M$:[151] V[170]21,53
550 VE[178]144:[129] I[178]1 [164] 15:[151] V[170]1,VE[170]2:[151] V[170]5,VE:[129] J[178]1 [164] 10:[151] 52216,P
560 P[178]3[171]P:[129] T[178]1 [164] CY:[130]:[130]:VE[178]VE[170]1:[130]:[151] V[170]21,0
570 [151] SC,0:[153]"LOADOPEN":[141] 70:[153]""[163]19)"SYSWAIT(null)OVE THE POINTER TO"
580 [153][163]19)"YOUR ANSWER AND HIT":[153][163]19)"THE FIRE BUTTON.OPEN"
590 PS$[178][196](PS(K)[172]10):[153]"    SCORE "PS$"  LIST":[153]
600 [129] I[178]1 [164] 4:LN[178]9:COL[178]5:[141] 50:[153]"LEFT$OW MANY " NM$(I) "?   ":[141] 80
610 [153] " 1  2  3  4  5  6  7  8  9 10 11 12":[151] V[170]7,147:[151] 49152,24
620 [151] 49153,24:[151] 49154,34:[151] 49155,10:[151] 49156,240:[158] 49600
630 [139] [194](V[170]16)[178]8 [167] AN[178][181]([194](V[170]6)[173]34)[170]11:[137] 650
640 AN[178][181](([194](V[170]6)[171]11)[173]24)[170]1
650 [139] AN[178]Z(I) [167] [141] 40:PS(K)[178]PS(K)[170]1:[137] 670
660 [141] 30
670 [141] 80:LN[178]15:COL[178]5:[141] 50:[153]"(null)HAT COLOR?"
680 [153]"BLACK  WHITE   RED  PURPLE  GREEN  BLUE":[151] V[170]7,197:[151] 49152,56
690 [151] 49153,32:[151] 49154,56:[151] 49155,0:[151] 49156,200:[158] 49600
700 HO[178][194](V[170]6)[171]24:[139] [194](V[170]16)[178]8 [167] HO[178]HO[170]255
710 AN[178][181](HO[173]52[170]1):[139] AN[178][197](Z$(I)) [167] [141] 40:PS(K)[178]PS(K)[170]1:[137] 730
720 [141] 30
730 [130]:[151] V[170]21,0:[130]:[151] V[170]21,0:GM[178]GM[170]1:[139] GM[179]6 [167] 500
798 :
799 [143]    PRINT SCORES, NEW/END GAME
800 [153]"LOAD":[151] SC,15:[151] BO,15:LN[178]2:COL[178]9:[141] 50:[153] ES$:[153]
805 [129] I[178]1 [164] NP:[153][163]13)"POKE(null)LAYER" I "CMD:" PS(I)[172]10:X(I)[178]PS(I):[130]
810 [129] J[178]1 [164] NP:[129] I[178]1 [164] NP:[139] X(J)[179]PS(I) [167] X(J)[178]0
820 [130]:[130]
825 [129] J[178]1 [164] NP:[129] I[178]1 [164] NP
830 [139] X(J)[179][177]0[167] [139] J[179][177]I[167] [139] X(J)[178]PS(I)[167] SU$[178]"S":CN$[178]"AND":VB$[178]"CMDCMDCMDARE"
840 [130]:[130]:[153]"(null)LAYER" SU$;
845 [129] I[178]1 [164] NP:[139] X(I)[179][177]0 [167] [153] I;CN$;
850 [130]:[153] VB$" THE WINNER" SU$ "!"
860 [153]"  LEFT$IT (null)POKE IF Y'ALL WANT TO PLAY AGAIN OR" R$ [163]9)"ANY OTHER KEY";
870 [153]" TO END.":[141] 20:[139] I[178]89 [167] GM[178]0:NG$[178]" THIS TIME?":[137] 400
880 [141] 60:[151] 53272,21:[151] 648,4:[151] 56576,[194](56576) [176] 3:[153]"LOADCONT"
890 [151] SC,6:[151] BO,14:[156]:[162]:[128]
998 :
999 [143]  LOAD FONT
1000 [151] 56334,[194](56334) [175] 254:[151] 1,[194](1) [175] 251:[158] 49152
1010 [151] 1,[194](1) [176] 4:[151] 56334,[194](56334) [176] 1
1020 [135] A:[139] A[179]0 [167] 1040
1030 [129] I[178]0 [164] 7:[135] B:[151] 61440[170](A[172]8)[170]I,B:[130]:[137] 1020
1040 [129] IRQ[178]53236 [164] 53245:[135] A:[151] IRQ,A:[130]
1050 [151] 53246,[194](792):[151] 53247,[194](793):[151] 792,244:[151] 793,207
1098 :
1099 [143]  STRINGS
1100 T0$[178]"VERIFYTHEN               SIN":T1$[178]"VERIFYTHEN  ":T2$[178]"    WAITPOKEGET"
1110 T$(1)[178]" (null)RIGHT$(null)RIGHT$= (null)RIGHT$ ":T$(2)[178]" PEEK^PEEKPEEKPEEK -< ":T$(3)[178]" MID$EXPMID$(null)VAL VALVAL "
1120 T$(4)[178]"OR=RIGHT$(null)RIGHT$=(null)RIGHT$ATNATN":T$(5)[178]"PEEKPEEKPEEK-<PEEKPEEK -<":T$(6)[178]"VALVALVALVALVALVALMID$(null)VALVAL"
1130 T$(7)[178]"   ORTANTANTAN^  ":T$(8)[178]"  OR(null)(null)TANRIGHT$MID$^ ":T$(9)[178]"  PEEK  OR(null) PEEK "
1140 T$(10)[178]"  /RIGHT$ (null) (null)EXP ":T$(11)[178]"   /TANTANTANEXP  ":T$(12)[178]"  A TALE  "
1150 T$(13)[178]"  OF THE  ":T$(14)[178]" OLD WEST ":T$(15)[178]"          ":T$(16)[178]T$(15)
1160 T3$[178]"VERIFYCOSWAIT               SQRPOKEGET":T4$[178]"LOGNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWWAITCOS"
1170 G$[178]"                                       ":SK$[178]"/TAN(null)(null)WAITTANEXPCMDCMDCMDCMDRND*WAITONPOKE"
1180 C1$[178]" ONCMD ONCMDCMDCMD FRE FRE ONCMDCMDCMDCMDCMD   ONCMDCMDCMDCMDCMD   ONCMDCMDCMD  ONCMDCMDCMD ONCMD ONCMD "
1190 C2$[178]"GETONCMD*NEWONCMDCMDCMDNEWWAITGETGETONCMDCMDCMDWAITGETGET*ONCMDCMDWAITGET"
1200 BZ$(1)[178]"&'CMDCMD*+ON":BZ$(2)[178]"$%CMDCMD*+ON":BZ$(3)[178]"!#CMDCMD*+ON":NM$(2)[178]"(null)OES"
1210 BZ$(4)[178]"()CMDCMD*+ON":NM$(1)[178]"(null)ARRIES":NM$(3)[178]"LENURLIES":NM$(4)[178]"(null)HEMPS"
1230 N$(1)[178]" ^ CMDCMDCMD PEEK CMDCMDCMD VAL ":N$(2)[178]"(null)RIGHT$ CMDCMDCMD(null)(null) CMDCMDCMD/LEN "
1240 N$(3)[178]"(null)RIGHT$ CMDCMDCMDSTR$INT CMDCMDCMDMID$(null) ":N$(4)[178]"ATNATN CMDCMDCMD/< CMDCMDCMD VAL "
1250 N$(5)[178]"ORLEN CMDCMDCMD/RIGHT$ CMDCMDCMDMID$(null) ":N$(6)[178]"(null)RIGHT$ CMDCMDCMD-RIGHT$ CMDCMDCMDMID$(null) "
1260 N$(7)[178]"OR^ CMDCMDCMD PEEK CMDCMDCMD VAL ":N$(8)[178]"(null)RIGHT$ CMDCMDCMD(null)INT CMDCMDCMDMID$(null) "
1270 N$(9)[178]"(null)RIGHT$ CMDCMDCMDMID$< CMDCMDCMDMID$(null) ":NG$[178]"?":M$[178]"VERIFYGETCMDGETCMDGETPOKE":R$[178][199](13)
1280 PL$[178]" ORRIGHT$ATN (null)RIGHT$ATNATNORLENORRIGHT$ "[170]R$[170]" -(null)PEEK -<MID$<-LEN-INT "[170]R$[170]" VAL /LENVALVAL VAL/LENVALVAL ONON"
1290 ES$[178]SK$[170]"*NEWNEWNEWNEWNEWNEWNEWRNDCMDCMDCMDCMDCMDCMDCMDCMDCMDGET(null)(null)CORE(null)WAITGETCMDCMDCMDCMDCMDCMDCMDCMDCMDLOGNEWNEWNEWNEWNEWNEWNEWWAITCOSONON"[170]SK$[170]""
1298 :
1299 [143]  PRINT TITLE
1300 [153]"LOAD":[151] 648,200:COL[178]0:[129] I[178]12 [164] 16:LN[178]I:[141] 50:[153]"SYS" G$:[130]
1310 COL[178]4:LN[178]15:[141] 50:[153] C1$:COL[178]35:LN[178]13:[141] 50:[153] C2$
1320 COL[178]10:LN[178]2:[141] 50:[153] T0$:[129]I[178]1 [164] 16:[153][163]10)T1$ T$(I) T2$:[130]
1330 [153][163]10)T3$:[153][163]10)T4$:[151] 53272,44:[151] 56576,[194](56576)[175]252
1340 [151] SC,15:[151] BO,15:[141] 1400
1350 [153] SK$ "LEFT$IT RIGHT$POKE FOR RIGHT$NSTRUCTIONS, OR ANY ";
1360 [153] [166]12) "OTHER KEY TO SKIP THEM. ":[141] 20:[139] I[178]73 [167] 200
1370 [137] 400
1398 :
1399 [143]  PLAY THE MUSIC
1400 [140]:[141] 60:[151] S[170]24,15
1410 [151] S[170]5,96:[151] S[170]6,70:[151]S[170]12,96:[151] S[170]13,70:[151] S[170]19,96:[151] S[170]20,70
1420 [135] N1,N2,N3,DR:[139] DR[178][171]1 [167] [141] 60:[142]
1430 H1[178][181](N1[173]256):L1[178]N1[171](H1[172]256):H2[178][181](N2[173]256):L2[178]N2[171](H2[172]256):H3[178][181](N3[173]256)
1440 L3[178]N3[171](H3[172]256):[151] S[170]1,H1:[151] S,L1:[151] S[170]8,H2:[151] S[170]7,L2:[151] S[170]15,H3
1450 [151] S[170]14,L3:[151] S[170]4,17:[151] S[170]11,17:[151] S[170]18,17:[129] T[178]1 [164] DR[172]20:[130]
1460 [151] S[170]4,16:[151] S[170]11,16:[151] S[170]18,16:[137] 1420
1998 [143]       DATA BLOC
1999 [143]  MUSIC
2000 [131] 7217,8583,11457,6,7217,8583,11457,2,7217,8583,11457,12
2010 [131] 5728,7217,8583,12,8583,11457,14435,6,8583,11457,14435,2
2020 [131] 8583,11457,14435,12,7217,8583,11457,12,7217,8583,11457,6
2030 [131] 8583,11457,14435,2,11457,14435,17167,18,11457,14435,17167,4
2040 [131] 9634,12860,15294,4,9634,11457,14435,4,8583,10814,12860,24
2050 [131] 8583,10814,12860,4,8583,11457,14435,4,9634,12860,15294,12
2060 [131] 9634,12860,15294,12,8583,11457,14435,6,8583,10814,12860,2
2070 [131] 8583,11457,14435,12,7217,8583,11457,12,7217,8583,11457,4
2080 [131] 8583,11457,14435,4,8583,10814,12860,18,5728, 7217, 8583,4
2090 [131] 6430,7647,10814,4,8583,10814,12860,4,7217,8583,11457,24,0,0,0,-1
2098 :
2099 [143]  CUSTOM TYPEFONT
2100 [131] 169,0,133,251,133,253,169,216
2110 [131] 133,252,169,240,133,254,162
2120 [131] 16,160,0,177,251,145,253,136
2130 [131] 208,249,230,252,230,254,202
2140 [131] 208,240,96
2198 :
2199 [143]  SPRITES
2200 [131]0,0,0,0,0,0,0,0,0,0,48,0,0,56,0,0,56,0,0,124,0
2210 [131]0,126,0,0,126,0,0,127,0,0,255,128,1,255,128,1,247,192,1,245,224
2220 [131]3,245,224,3,193,224,3,25,224,3,131,224 ,3,199,192,1,231,128,0,248,0,0
2249 :
2250 [131]0,224,0,0,224,0,0,240,0,0,240,0,1,240,0,3,248,0,3,216,0
2260 [131]3,216,0,3,220,0,3,220,0,6,220,0,14,222,0,14,214,0,12,199,0
2270 [131]28,87,128,24,85,128,26,7,128,14,47,0,7,111,0,3,252,0,0,240,0,0
2299 :
2300 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
2310 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,120,0
2320 [131]0,252,0,1,254,0,1,255,0,3,255,0,3,255,0,3,254,0,1,252,0,0
2349 :
2350 [131] 0,12,0,0,30,0,0,30,0,0,30,0,0,30,0,0,30,0,1,158,0,19,158,0,51,128,0
2360 [131] 115,159,192,112,31,192,7,193,192,127,159,192,127,191,192,63,255,128
2370 [131] 24,255,0,3,248,0,15,255,0,0,0,0,7,254,0,7,254,0,0
2399 :
2400 [131]0,0,0,0,0,0,0,0,0,63,227,224,80,246,32,95,180,32,64,52,32,63,228,32
2410 [131]12,38,48,127,254,24,193,7,12,129,7,134,193,7,131,127,253,131,193,7,131
2420 [131]129,3,131,193,7,3,127,254,3,48,70,3,48,67,3,31,254,3,0
2449 :
2450 [131]7,255,254,7,255,254,6,127,254,4,63,254,6,127,254,7,255,254,7,255,254
2460 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
2470 [131]0,0,0,0,0,0,0,0
2498 :
2499 [143] JOYSTICK
2500 [131]173,0,220,41,15,201,11,240,13,201,7,240,59,173,0,220,41,16,208,236
2510 [131]96,0,173,6,208,205,1,192,240,226,205,3,192,208,24,169,0,141,21,208
2520 [131]141,16,208,173,4,192,141,6,208,169,8,141,21,208,76,60,194,0,56,173
2530 [131]6,208,237,0,192,141,6,208,76,60,194,0,173,6,208,205,2,192,240,176
2540 [131]205,4,192,208,25,169,0,141,21,208,169,8,141,16,208,173,3,192,141,6
2550 [131]208,169,8,141,21,208,76,60,194,0,24,173,6,208,109,0,192,141,6,208
2560 [131]76,60,194,0,162,207,160,0,200,208,253,202,208,248,76,192,193
2598 :
2599 [143]  CHARACTER DATA
2600 [131]122,127,63,31,15,7,3,1,0
2610 [131]161,0,0,15,31,56,48,48,48
2620 [131]163,0,0,240,248,28,12,12,12
2630 [131]164,0,0,15,31,63,63,63,48
2640 [131]165,0,0,240,248,252,252,252,12
2650 [131]166,8,12,143,127,56,240,112,48
2660 [131]167,16,48,241,254,28,15,14,12
2670 [131]168,0,0,15,30,62,62,54,50
2680 [131]169,0,0,240,120,124,124,108,76
2690 [131]170,48,48,56,31,15,0,0,0
2700 [131]171,12,12,28,248,248,0,0,0
2710 [131]193,255,255,255,195,195,195,195,195
2720 [131]194,195,195,195,195,195,195,195,195
2730 [131]195,255,255,255,7,7,255,255,255
2740 [131]196,255,255,255,224,224,255,255,255
2750 [131]197,195,195,195,195,195,255,255,255
2760 [131]201,255,255,255,15,7,131,195,195
2770 [131]202,195,195,193,224,240,255,255,255
2780 [131]203,195,195,131,7,15,255,255,255
2790 [131]209,255,255,231,195,195,231,255,255
2800 [131]213,255,255,255,240,224,193,195,195
2810 [131]215,195,195,225,240,240,225,195,195
2820 [131]235,195,195,195,192,192,195,195,195
2830 [131]237,195,195,195,192,192,255,255,255
2840 [131]238,255,255,255,3,3,195,195,195
2850 [131]240,255,255,255,192,192,195,195,195
2860 [131]242,255,255,255,0,0,195,195,195
2870 [131]243,195,195,195,3,3,195,195,195
2880 [131]245,195,195,135,15,15,135,195,195
2890 [131]253,195,195,195,3,3,255,255,255
2900 [131]254,248,248,124,124,62,62,31,31
2910 [131]255,0,128,192,224,240,248,252,254,-1
2918 :
2919 [143]  INTERRUPT REQUEST
2920 [131]72,169,4,141,136,2,104,108,254,207
4998 :
4999 [143]  CHECK DATA
5000 CK[178]0:CC[178]0
5010 [129] I[178]1 [164] 124:[135] A:CK[178]CK[170]A:[130]
5020 [139] CK[179][177]958347 [167] [153]"ERROR IN MUSIC DATA, LINES 2000-2090":[144]
5030 [153]"MUSIC DATA OK":CK[178]0:CC[178]0
5040 [129] I[178]1 [164] 33:[135] A:CK[178]CK[170]A:[130]
5050 [139] CK[179][177]5974 [167] [153]"ERROR IN FONT DATA, LINES 2100-2140":[144]
5060 [153]"FONT DATA OK":CK[178]0:CC[178]0
5070 CK(1)[178]4844:CK(2)[178]4520:CK(3)[178]1909:CK(4)[178]4626:CK(5)[178]5185:CK(6)[178]3159
5080 [129] J[178]1 [164] 6:[129] I[178]1 [164] 64
5090 [135] A:CK[178]CK[170]A:[130]
5100 [139] CK[179][177]CK(J) [167] [153]"ERROR IN SPRITE"J"DATA":[144]
5110 [153]"SPRITE#"J"DATA OK":CK[178]0:CC[178]0:[130]:CK[178]0:CC[178]0
5120 [129] J[178]1 [164] 137:[135] A:CK[178]CK[170]A:[130]
5130 [139] CK[179][177]16579 [167] [153]"ERROR IN JOYSTICK DATA, LINES 2500-2560":[144]
5140 [153]"JOYSTICK DATA OK":CK[178]0:CC[178]0
5150 [129] J[178]1 [164] 289:[135] A:CK[178]CK[170]A:[130]
5160 [139] CK[179][177]44406 [167] [153]"ERROR IN CHARACTER DATA, LINES 2600-2910":[144]
5170 [153]"CHARACTER DATA OK":[128]
5180 [129] J[178]1 [164] 10:[135] A:CK[178]CK[170]A:[130]
5190 [139] CK[179][177]1197 [167] [153]"ERROR IN INTERRUPT DATA, LINE 2920":[144]
5200 [153]"INTERRUPT DATA OK":[128]